home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt166.dms / pt166.adf / s / isdos < prev    next >
Text File  |  1978-01-02  |  1KB  |  52 lines
  1.  
  2. ;Have a look on Workbench - see if its a DOS Disk ...
  3. failat 21
  4. cd df0:c
  5. status >ram:qwe COMMAND=MicroCraftMenu
  6. break <ram:qwe >nil: ?
  7. sys:c/eighty off
  8. sys:c/newpos 0 0 0 0
  9. run >nil: loadwb
  10.  
  11. cd sys:
  12. echo "Hit Right Amiga B or select backdrop from pull down menus"
  13. echo "to access Workbench"
  14. echo "type in MicroCraftMenu s/menu - to return to menu..."
  15. echo ""
  16. prompt
  17. sys:c/newpos 0 0 0 0
  18. echo "bollocks wotz goin` on ... "
  19. df0:c/shrinkit
  20.  
  21. lab start
  22. Request "Choose an option" TITLE "MICROCRAFT" GADGETS "DCOPY|XCOPYPRO|XCOPY V6|XCOPY80|RETURN TO MAIN MENU|CANCEL"
  23. Set ANSWER $RC
  24. ;Echo "Returncode was" $ANSWER
  25. If $ANSWER EQ 1
  26.     df0:DCOPY
  27.     skip start back
  28. EndIf
  29. If $ANSWER EQ 2
  30.     run >nil: <nil: XCOPYPRO 
  31.     skip start back
  32. Endif
  33. If $ANSWER EQ 3
  34.     df0:XCOPYPRO_V6
  35.     skip start back
  36. Endif
  37. If $ANSWER EQ 4
  38.     df0:XCOPY80
  39.     skip start back
  40. Endif
  41. If $ANSWER EQ 5
  42.     run df0:c/MicroCraftMenu df0:s/menu
  43. Endif
  44. else
  45. If $ANSWER EQ 0
  46. sys:c/newpos 10 50 340 150
  47. echo "MicrocraftMenu s:menu to return to menu"
  48. Endif
  49. UnSet ANSWER
  50. skip start back
  51. endif
  52.